<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in.hc</name>
<id>-1</id>
<cardCount>9</cardCount>
<cardID>2999</cardID>
<listID>5743</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>640</width>
<height>480</height>
</cardSize>
<script>--------------------------------------------------------------------------------------------------------Multicom Publishing Inc.®----------------------------------------------------------------------------------------------------------------------------------System Handlers:-----------------------------on openStackhide menuBarhide titleBarset the userlevel to 5colorizeHCinitGlobalsopenPictureresetSystemPaletteloadPaletteloadTxtplutoSndend openStackon resetSystemPaletteset cursor to busypicture "SYSTEM_COLORS",resource,rect,false,8set the rect of window "SYSTEM_COLORS" to "639,479,640,480"show window "SYSTEM_COLORS" -- show is needed to reset palette!close window "SYSTEM_COLORS"noPaintWhiteif there is a window "black" then ¬close window "black"end resetSystemPaletteon closeStackspinCursornoPaintWhiteif there is a window "pluMenu" then ¬close window "pluMenu"end closeStackon openPicture winName -- handle openPicture sent by Picture XCMDglobal gCurrWindowif winName <> "SYSTEM_COLORS" thenput winName into gCurrWindowend ifend openPictureon colorizeHCglobal gOKToColorizeif (gOKToColorize is empty) then pass colorizeHCend colorizeHCon initGlobalsglobal gGlobalsOKif gGlobalsOK is true then exit initGlobalsif LastHilites = "" then put "0,0,0,0,0,0,0" &return &"0"&return&"1" into LastHilitesput true into gGlobalsOKend initGlobals--------------------------Navigational Handlers---------------------------on loadPalettenoPaintWhitepalette "pluMenu", "0,417" --opens navigational paletteif there is a window "runMenu" then ¬close window "runMenu"end loadPaletteon prepWinpicture "black",resource,rect,false,8 --draws a black screen before showing thumbnailset rect of window "black" to "0,0,640,480"noPaintWhiteshow window "black"end prepWinon quitdoMenu "Quit HyperCard"end quiton goNextlock Screengo nextunlock Screenend goNexton goPrevlock Screengo previousunlock Screenend goPrevon goBacklock Screengo to card "Main Menu" --takes you to this stack main menuunlock Screenend goBackon goEventplay "mouseClick"lock screengo to cd "MAIN MENU"unlock screenend goEventon goSolarlock screengo stack "HOME"unlock screenend goSolaron loadTxtglobal marker, printFieldput "PLANETS:PLUTO:PLUTO.TXT" into markerput "PLUTO" into printFieldend loadTxt---------------------------Check Environment Handlers----------------------on cHCinstall-- Check for correct environmentset cursor to busy--if checkEnviron() is not "OK" thengo HomegetHomeInfoexit to HyperCardend ifset cursor to busy--repeat until the lockScreen is falseunlock screenend repeat--end cHCinstallon plutoSndglobal switchif switch > 0 thenexit plutoSndend ifQTMovie OpenMovie,Plain,"PLANETS:AUDIO:PLUTO211KHz Movie", "1005,1005",¬nocontroller,dontPaintWhite,closeOnFinishset the visible of window "PLUTO211KHz Movie" to falseend plutoSnd</script>
